Sub zad18()
Formirati C=[1,Xt,1|x,A^2,x|1,Xt,1] (|- nova vrsta, xt-  x transponovano A^2- A na kvadrat)

Dim a(100, 100) As Double, b(100, 100) As Double, a2(100, 100) As Double, c(100, 100) As Double
Dim i As Long, j As Long, k As Long, s As Double, x(100) As Double
n = Cells(1, 1)
For i = 1 To n
 For j = 1 To n
 a(i, j) = Cells(i + 1, j)
 Next
 Next
 For i = 1 To n
 x(i) = Cells(i + 1, n + 1)
 Next
For i = 1 To n
 For j = 1 To n
 s = 0
 For k = 1 To n
 s = s + a(i, j) * a(k, j)
 Next
 a2(i, j) = s
Next
Next
c(1, 1) = 1
c(1, n + 2) = 1
c(n + 2, 1) = 1
c(n + 2, n + 2) = 1
For i = 1 To n
c(1, i + 1) = x(i)
c(n + 2, i + 1) = x(i)
c(i + 1, 1) = x(i)
c(i + 1, n + 2) = x(i)
Next
For i = 1 To n
 For j = 1 To n
 c(i + 1, j + 1) = a2(i, j)
 Next
Next
Worksheets.Add
For i = 1 To n
 For j = 1 To n
 Cells(i, j) = c(i, j)
 Next
 Next
 End Sub